.*
.*
.*                    +----------+
.*    Macro Name   -   DERWTX   
.*                    +----------+
.*
.*
.*    Function -
.*             Provide skeleton of common module extension
.*
.*    Syntax -
.*
.*
.*    Operation -
.*
.*
.*    Author -
.*         Name     :  Deru Sudibyo
.*                     Technical Consultant
.*                     Computer Associates
.*                     Indonesia Office
.*                     Wisma BNI-46 34th floor, BNI-46 City
.*                     Jl. Jend. Sudirman, Kav 1, Jakarta Pusat
.*         Copyright:  (C)1998 Deru Sudibyo
.*
.*    Disclaimer -
.*        This macro is developed as a personal support, and is
.*        not a part of CA support matterials.  The purpose is as
.*        a temporary solution or even just a sample.  Therefor,
.*        further modifications and maintenance are client's
.*        responsibilities.
.*
.*    Modification Log -
.*    +--------+------------+--------+---------------------------+
.*     Date    Engineer    V.R.L.  Description               
.*    +--------+------------+--------+---------------------------+
.*    98/02/12 Deru S.     1.0.0.  First development         
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*    +--------+------------+--------+---------------------------+
.*
         MACRO
&LABEL   DERWTX &TYPE=CSECT,&AMODE=31,&RMODE=ANY,&PRINT=NOGEN,         +
               &JES=JES2,&BLKSIZE=6233,&LRECL=150,&UNIT=3390,          + 
               &SPACE=(CYL,(50,5),RLSE),&XJCLASS=T,&XMCLASS=T,         +
               &XMLEVEL=(1,1),&XDISP=(OLD,KEEP),ABNDISP=KEEP,          +
               &XDISP=(OLD,KEEP),&DSPCODE=YYEDSPC10,&PCROOT=DISPATCH   
         @XDIREF TYPE=&TYPE,AMODE=&AMODE,RMODE=&RMODE=ANY,PRINT=&PRINT
         @SYSOUT JESNAME=&JES
         @FLATDS BLKSIZE=&BLKSIZE,LRECL=&LRECL,SPACE=&SPACE,           +
               VOLUNIT=&UNIT,ABNDISP=&ABNDISP
         @XDIREF XJCLASS=&XJCLASS,XMCLASS=&XMCLASS,XMLEVEL=&XMLEVEL,   +
               XDISP=&XDISP,DSPCODE=&DSPCODE,PCROOT=&PCROOT
         MEND